ويضم المواضيع التالية: 
UAC Security‏ 


كيف نقوم بجعل أحد الأزرار في برنامجنا ينفذ أوامر تتطلب صلاحيات مدير في 
ویندوز فیستا 


UAC Security 


استعراض ٣0۸ا‏ 

بشكل عام لا يمكن للبرنامج تأدية أعمال تتطلب صلاحيات لا يمتلكها المستخدم فإن لم يمتلك ذلك المستخدم الصلاحيات الكافية 

لحذف ملفات في مجلد الويندوز فلا يمكن للبرنامج المشغل من قبله أن يحذف تلك الملفات أيضا ومع ذلك يمكن للمستخدم تنفيذ أعمال من 
المفترض أنه ممنوع منها. والمطورون يعلمون منذ مدة طويلة أن التطبيق يجب أن يمتلك بعض الصلاحيات لكي يتمكن من إتمام العمل فإن 
كان التطبيق يتطلب العديد من الصلاحيات فوحدهم المستخدمون الذين يمتلكون تلك الصلاحيات يمكنهم تشغيل ذلك البرنامج. ولسوء الحظ 
فإن العديد من التطبيقات التي تقوم بأعمال قوية تحتاج إلى إنشاء أو حذف ملفات في مجلد الويندوز أو الوصول إلى مناطق متعلقة بالنظام أو 
التعديل على متغيرات البيئة أو مسجل النظام فإن كان التطبيق يحتاج تلك الصلاحيات فعندها يجب أن يمتلك تلك الصلاحيات عند تشغيله مما 
يعني أنه على العديد من المستخدمين امتلاك صلاحيات مدير نظام حتى يستطيعوا تشغيل تلك البرامج. 


والتعامل مع صلاحيات بهذا المستوى يأتي مع أخطار إضافية فإن أساء التطبيق التصرف فقد يتسبب بانهيار النظام حتى لو كان 
التطبيق ذات نفسه يعمل بصورة طبيعية فقد يقوم المستخدم بعمل شئ كارتي عن طريق الخطأً عندما يكون قد دخل بصلاحيات مدير فقد يقوم 
بحذف ملفات هامة يصبح معها من المستحيل استعادة النظام ويكون الحل الأمثل في هذه الحالة هو السماح للتطبيق برفع مستوى الصلاحيات 
التي يستخدمها بشكل مؤقت أثناء تأديته لتلك الوظائف القوية فإن اخطأ التطبيق عند تشغيله لجزئية معينة من الكود فلن يكون لديه الصلاحيات 
الكافية لعمل ضرر كبير ولن يكون للمستخدم صلاحيات مدير بشكل دائم وبهذا نكون قد قللنا من احتمال الحوادث المدمرة في النظام. 


في نسخ الويندوز السابقة لفيستا عندما تقوم بالدخول كمستخدم يمتلك صلاحيات مدير عندها ستتمكن من القيام بعمل أي شئ تقرييا 
ولكن في ويندوز فيستا فأن ال ٥٤۸ل‏ يتصرف بطريقة مختلفة قليلا فعندما تدخل كمدير يكون دخولك عبارة عن شقين الأول عبارة عن 
مستخدم عادي ذو صلاحيات محدودة والثاني مدير نظام يمتلك كافة الصلاحيات ففي البداية يكون عملك كمستخدم عادي حيث يتم استخدام 
الشق الثاني عند الحاجة فقط فعندما تريد القيام بعملية تحتاج إلى صلاحيات إضافية فال ٥۸ل‏ يظهر لك صندوق حوار يسألك الموافقة فإن 
وافقت على تنفيذ ذلك العمل يتم رفع صلاحياتك بشكل مؤقت إلى مستوى مدير حتى ينتهي تنفيذ ذلك العمل وعندها تعود صلاحياتك إلى 
مستخدم عادي ثانية وإن كنت قد دخلت باسم مستخدم عادي لا يمتلك صلاحيات مدير فمازال بإمكانك تنفيذ أمر يتطلب تلك الصلاحيات 
المرتفعة حيث يظهر لك ال ٥٤۸ل‏ صندوق حوار تحذيري يمكنك من الدخول كمدير فإن قمت بالدخول كمدير بنجاح عندها يتم منحك 
صلاحيات مدير بشكل مؤقت حتى ينتهي تنفيذ ذلك العمل. ويكون الفرق بين الحالتين بسيطا فعندما تدخل كمدير فإن ال ٣۸ل‏ يسألك موافقتك 
على العمل بالصلاحيات المرتفعة وإن دخلت كمستخدم آخر فإن ال ٥۸ل‏ يطلب منك إدخال كلمة السر الخاصة بالمدير 


التصمیم من اجل ٣۸ا‏ 

لن يقوم ال ٤‏ برفع صلاحيات التطبيق بعد أن تم تشغيله فهو يقوم بإسناد الصلاحيات لذلك التطبيق عندما يبدأ ولن يقوم بعدها 
بتغيير تلك الصلاحيات فإن احتاج التطبيق للعمل بصلاحيات مرتفعة فعليه أن يحصل على تلك الصلاحيات عندما يبدا ولتجنب إعطاء 
التطبيق صلاحيات أكثر من اللازم يجب عليك تقسيم كودك إلى أجزاء بحسب احتياجه لتلك الصلاحيات فالبرنامج الرئيسي يجب أن يعمل 
بصلاحيات عادية ولاحقا يجب عليه تنفيذ تطبيقات أخرى تعمل بصلاحيات مرتفعة عند الحاجة. 


فمثلا إن كان لدينا تطبيق يقوم بحفظ البيانات في قاعدة بيانات e۴‏ ا فهو لا يحتاج لصلاحيات مدير ومع ذلك إن أراد إنشاء 
ملف بملخص العمليات في مجلد الويندوز - مجلد محمي - فسيحتاج عندها لصلاحيات مدير فيمكنك عندها تقسيم التطبيق إلى عدة أجزاء 
فالتطبيق الرئيسي يقوم بمعظم العمل وتطبيق آخر يقوم بكتابة معلومات الخلاصة إلى ذلك الملف عندها يمكن لاتطبيق الأول تشغيل الثاني من 
أجل كتابة المعلومات في ذلك الملف. 


وعندما يكون بالإمكان يفضل أن تعيد كتابة التطبيق لتجنب استخدام صلاحيات مرتفعة فالعديد من البرامج على سبيل المثال تكون 
منصبة في المجلد ١ا۴‏ "ه۲ عهم وهذا من المجلدات المحمية وبهذا إن احتاج التطبيق إلى تخزين معلومات في ملف متواجد بنفس المجلد 
الذي يحتوي على الملف التنفيذي للتطبيق فسوف يحتاج إلى صلاحيات إضافية للقيام بتلك العملية ويمكنك تجاوز هذه المشكلة بجعل التطبيق 
يكتب ذلك الملف في المجلد الخاص بالمستخدم الحالي. والعمليات الأخرى التي تحتاج لصلاحيات مرتفعة تتضمن الكتابة إلى المجلدات 
المحمية والتعامل بشكل مباشر مع العتاد وتعديل الأقسام المحمية في سجل النظام .HKEY_LOCAL_MACHINE Jû‏ 

وتقسيم التطبيق إلى أقسام تتطلب صلاحيات مرتفعة وأخرى لا تتطلب تلك الصلاحيات لا يمكن التطبيق من استخدام أقل 


الصلاحيات الممكنة فحسب ولكنه يبسط القسم الأخطر في كودك ويجعله أسهل للتنقيح فمثلا يمكننا استخدام كود شبيه بالتالي لتنفيذ تطبيق 


Private Sub btinRun_Click() Handles btinRun.Click 
Try 
‘ Start the process. 
Dim pro As System.Diagnostics.Process 
pro = System.Diagnostics.Process.Start( _ 
txtProgram.Text, txtArguments. Text) 
“ Wait for the process to exit. 
pro.WaitForExit() 
‘ Display the process’s exit code. 
MessageBox.Show(“Exit code: “ & pro.ExitCode) 
Catch ex As System.ComponentModel.Win32Exception 
‘“ This happens if the user fails to elevate to Administrator. 
MessageBox.Show(“Operation canceled”, _ 
“Canceled”, MessageBoxButtons.OK, _ 
MessageBoxlcon.Information) 
End Try 
End Sub 


الكود السابق يستخدم الوظيفة ا ه†؟.ءءعع۴r0.ءtem.Diagnosticءرك‏ لتشغيل التطبيق ممررا مسار التطبيق الذي نريد تنفيذه 
ومحددات سطر الأوامر الخاصة بها وهو يستخدم الدالة †|×۲۴٥۴†أجة۷‏ من الغرض المعاد التي تنتظر حتى الانتهاء من تنفيذ البرنامج تم يتم 
التأكد عبر الخاصية عمله)†|»×ع من القيمة المعادة من التطبيق المنفذ. 


ويمثل الكود التالي الإجراء "اهم في البرنامج المستدعى 


Function Main(ByVal cmdArgs() As String) As Integer 
Dim frm As New frmChoices 
‘ Display the arguments. 
For Each str As String In cmdArgs 
frm.IstArguments.ltems.Add(str) 
Next str 
‘ Select the first item. 
If frm.IstArguments.ltems.Count > O0 Then 
frm.lstArguments.Selectedlndex = 0 
End If 
‘ Return the index of the selected item. 
If frm.ShowDialog() = Dialog Result.Cancel Then 
Return -1 
Else 
Return frm.IstArguments.Selectedlndex 
End If 
End Function 


حيث يبدا التطبيق بإنشاء نموذج ءعءاه ۴٣٠٣‏ وإضافة محددات سطر الأوامر إلى صندوق القائمة وا٣٥"‏ ںع۲ ۲۸| ونختار 
العنصر الأول منه ثم نظهر النموذج فإن قام المستخدم بالضغط على الزر |عء" ج فالتطبيق يعيد القيمة - 1 وإن ضغط على الزر 0۸ فهو 
يعيد قيمة الخاصية ×٥ع‏ "| من صندوق القائمة والموافقة للعنصر الذي تم اختياره منها والكود المستدعي للتطبيق يستقبل تلك القيمة عبر 
الخاصية .ExitC٥C٬od٤‏ 


وكجزء من خصائص المستخدم ل ٣۸ل‏ فأي عمل يتطلب صلاحيات مرتفعة يجب أن يتم تعليمه بواسطة الدرع القياسي ل ٤۸ل‏ 

حيث يجب إظهاره لتحذير المستخدم بأنه ينفذ تطبيق يتطلب صلاحيات مرتفعة. وفي الوقت الحالي لا توجد طريقة بسيطة لإظهار ذلك الدرع 
في فيجول بايزيك لذلك سنستخدم دالات ۸۴١‏ لجعل الزر يظهر ذلك الدرع كما هو ظاهر في قطعة الكود التالية 

Imports System.Runtime.InteropServices 


Module UacStuff 
Declare Auto Function SendMessage Lib “user32.dll” _ 


(ByVal hWnd As HandleRef, ByVal msg As Int32, _ 
ByVal wParam As IntPtr, ByVal IParam As IntPtr) As Int32 


“ Make the button display the UAC shield. 

Public Sub AddShieldToButton(ByVal btn As Button) 
Const BCM_SETSHIELD As Int32 = & H160C 
btn.FlatStyle = Windows.Forms.FlatStyle.System 
SendMessage(New HandleRef(btn, btin.Handle), _ 
BCM_SETSHIELD, IntPtr.Zero, CType(1, IntPtr)) 

End Sub 

End Module 


ففي البداية نقوم بتعريف الدالة معهةءوعM‏ ۸4ء5 المتواجدة في المكتبة اال.۲32عءل حيث يقوم الإجرlاء AddshieldToButton‏ 
بضبط الخاصية عار†؟5†ه|۴ الخاصة بالزر إلى ٣عءرك‏ ثم يستخدم الدالة معs2وم S4۷‏ لإرسال الرسالة BCM_SE H1٤0‏ إلى الزر 
ولا توفر لنا مايكروسوفت حاليا طريقة لإضافة الدرع لتحكمات أخرى غير زر الأوامر فإن أردت إضافته إلى تحكم أخر فستقوم بذلك 
لوحدك كما يمكنك عمل صورة للدرع ووضعها ببساطة على تحكماتك ولكن هذه الصورة لن تتغير إن تم تغيير صورة الدرع الخاصة بالنظام 


رفع صلاحيات البرامج 

يمكن للمستخدم رفع المستوى الذي يتم تنفيذ التطبيق ضمنه بواسطة اختيار الأمر Run As Administra‏ من القائمة التي 
تظهر لك عند الضغط بزر الفأرة اليميني على الملف التنفيذي للتطبيق فيقوم النظام بإظهار صندوق حوار ° الخاص وبعد أن يقوم 
المستخدم بإدخال كلمة سر المدير يتم تنفيذ البرنامج باستخدام الصلاحيات المرتفعة وهذه الطريقة بسيطة ولا تتطلب تدخلا منك كمبرمج 
ولكنها تتطلب من المستخدم القيام بخطوة إضافية ولهذا قد لا تكون هذه الفكرة هي الحل الأفضل دوما. 


ويمكننا جعل تطبيقنا يبدأ تطبيق معين باستخدام صلاحيات مرتفعة بطريقة تشابه تلك الطريقة التي يستخدمها المستخدم فهو يبدأ 
تشغيل التطبيق طالبا من النظام تشغيله بصلاحيات مدير حيث يمكن استخدام كود شبيه بالتالي لتشغيل تطبيق آخر بصلاحيات مرتفعة مع أن 
ذلك التطبيق بذاته لا يطلب تلك الصلاحيات عند بدء تشغيله 


Try 
“ Use the runas verb to start the process. 
Dim psi As New ProcessSitartlnfo 
psi.Verb = “runas” 
psi.UseShellExecute = True 
psi.File Name = txtProgram. Text 
psi.Arguments = txtArguments. Text 
Dim pro As System.Diagnostics.Process 
pro = System.Diagnostics.Process.Start(psi) 
“Wait for the process to exit. 
pro.WaitForExit() 
‘ Display the process’s exit code. 
MessageBox.Show(“Exit code: “ & pro.ExitCode) 
Catch ex As System.ComponentModel.Win32Exception 
‘ This happens if the user fails to elevate to Administrator. 
MessageBox.Show(“Operation canceled”, _ 
“Canceled”, MessageBoxButtons.OK, _ 
MessageBoxlcon.Information) 
End Try 


حيث يبني الكود السابق الغرض ۴0١|۲ه†5ءوعءه٣۴‏ واصفا التطبيق الذي سيشغله الكود حيث يقوم بضبط الخاصية ط۲٥۷‏ إلى 
القيمة وةمںم لكي يبين للنظام أن التطبيق يجب أن يتم تشغيله كمدير كما يضبط اسم البرنامج ومحددات بدء التشغيل الخاصة به. 


وإن كنت تعلم أن التطبيق يجب أن يتم تشغيله دوما باستخدام صلاحيات مرتفعة يمكنك جعل ذلك التطبيق يطلب رفع صلاحياته 
بنفسه وذلك باستخدام اءعfام‏ هم مضمنة داخل الملف التنفيذي للتطبيق ولإنشائها انقر نقرا مزدوجا على Solution aû My Project‏ 


orerاExp‏ وفي صفحة ۸٥ااه‌iام‌م۸‏ انقر على الزر ءعما†امS U۸٤‏ سم۷Vi‏ الذي يقوم بفتح الملف اءعİfمة".م‏ مه حيث يظهر الكود 
التالي المحتريات الأبتائية لذلك الملف 


<?xml version="1.0" encoding="utf-8"?> 
<asmvl1 :assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" 
XMLIRSTASMVI="UER?SCHEMNAS=MILCEOSOEE=GOMRTASMTL™ MLNS: ASMV2="UEN:SCheMaS=MLEFOSoEÊ = 
com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> 
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/> 
SEFUSEIREO SMLINSSTUEN:SCREMAS=MLCEFOSOEE=COM ASM. TA "> 


<security> 
<requestedPrivileges xmlns="urn: schemas-microsoft-com:asm.v3"> 
<!-- UAC Manifest Options 


If you want to change the Windows User Account Control level replace the 
requestedExecutionLevel node with one of the following. 


<requestedExecutionLevel level="asInvoker" uiAccess="false" /> 
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" /> 
<requestedExecutionLevel level="highestAvailable" uiAccess="false" /> 


If you want to utilize File and Registry Virtualization for backward 
compatibility then delete the requestedExecutionLevel node. 
و‎ 
<requestedExecutionLevel level="asInvoker" uiAccess="false" /> 
</requestedPrivileges> 
/SeEUET EY 
7 EEUSEIREOS 
</asmvl1:assembly> 


ولجعل التطبيق يطلب من ٣۸ل‏ رفع صلاحياته غير ëيnة‏ اul¡¦طر require Administrator gl! requestExecutionLevel‏ 
والآن عندما تقوم بعمل ءاأم ٥"‏ للتطبيق يقوم فيجول ستوديو بتعليم التطبيق بأنه بحاجة إلى صلاحيات مدير فعندما يقوم المستخدم أو أي 
برنامج آخر بتشغيله سيحاول النظام بصورة آلية رفع صلاحياته مظهرا صندوق الحوار الخاص ب 0٥۸ل‏ للمستخدم طالبا منه الموافقة على 
رفع تلك الصلاحيات 


. 


الخلاصه 

القواعد الأساسية لبرمجة ٥۸ل‏ تتطلب استخدام الحد الأدنى من الصلاحيات لتنفيذ العمل المراد ويجب على التطبيق استخدام 
صلاحيات مستخدم عادي عندما يكون ذلك ممكنا وإن كان عليه تنفيذ مهمة تتطلب صلاحيات أكبر فيجب عليه تنفيذ تطبيق آخر منفصل يمتلك 
تلك الصلاحيات المرتفعة. 


وقد ورد في هذه المقالة ثلاثة طرق لبدء البرنامج بصلاحيات مرتفعة: الأولى هي الطلب من المستخدم فعل ذلك وذلك من خلال 
النقر بزر الفأرة اليميني على التطبيق واختيار الأمر ٣ماة†ءامİصكA A‏ "ں8 وهذه ليست بالطريقة الملائمة بشكل عام ولكنها تبقى مقبولة 
إن كان المستخدم سيشغل ذلك التطبيق مرات نادرة والثانية هي جعل التطبيق يبدأ التطبيق الأخر بصلاحيات مرتفعة وهذه طريقة أفضل من 
الأولى ولكنه مازال بالإمكان تشغيل التطبيق بدون الصلاحيات التي يحتاجها والثالثة هي تضمين اء٠۴‏ "هة" ضمن التطبيق المستدعى لجعله 
يطلب صلاحيات مرتفعة في كل مرة يبدأ فيها تشغيله 


تمکین برنامجك من استخدام صلاحیات مدير على فیستا 


لتمكين برنامجك من العمل بصلاحيات مدير شغل بيئة التطوير دوما بصلاحيات مدير - انقر بزر الفأرة اليميني على اختصار بيئة 
التطوير وIخةتر‏ l!لÎمرAdministrator Run As‏ - 
افتح خصائص ز٥۴۲ My‏ ثم انقر زر sعہا†tمS View 1۸C‏ من صفحة ۸٥ااهء‌اام‏ م۸ تم في نافذة خصائص ٩۸ل‏ التي 


تظهر لك استبدل السطر 


<requestedExecutionLevel level="asInvoker" uiAccess="false" /> 


بان 


<requestedExecutionLevel level="requireAdministrator" uiAccess="false" /> 


نفذ الأمر ںاہک dااںB‏ من قائمة dااںB‏ وبیئة التطویر مازالت تعمل ضمن مستوی ۲٥ھ‏ †ءاہ ہ۸4 كما تأكد بأنك تستخدم 
بيئة التطوير بصلاحيات مدير عندما تقوم بعمل برنامج ال مں م6 أيضا 


كيف نقوم بجعل أحد الأزرار في برنامجنا ينفذ أوامر تتطلب صلاحيات مدير في ويندوز فيستا 


نحتاج في بعض الأحيان للقيام بأعمال تتطلب صلاحيات خاصة في ويندوز فيستا وهنا سنواجه منعا من قبل 


° الخاص 


بويندوز فيستا ولكي يتمكن برنامجنا من تنفيذ هذه المهمة يحب علينا تنفيذ ذلك الکود بمستوی صلاحیات مدیر ٣٥ھا†ءاہاہAdm‏ حیث سنقوم 
في البداية بتعريف فئة تتعامل مع نظام الأمان في ويندوز فيستا مستخدمين الفئة اا† ع لاsس‏ هللا۷ للتعرف على مستخدم ويندوز الذي 
نعمل عليه والفئة اaماء"‏ ۴ئ سهل Wİ"‏ للتعرف على المجموعات التي ينتسب إليها ذلك المستخدم تم نتحقق من أنه يعمل بصلاحيات مدير 


كما في الإجراء 


As Boolean 
= WindowsIdentity. GetCurrent () 
ipal = New WindowsPrincipal (id) 


Friend Shared Function IsAdmin () 
Dim id As WindowsIdentity 


Dim p As WindowsPrinc 


Return p.IsInRole (WindowsBuiltInRole.Administrator) 


فإن لم يكن المستخدم يعمل بصلاحيات مدير هنا نعيد بدء العملية ائllaلıة rt Current Process‏ 
إلى مستوى مدير كما في الإجراء 


End. FüUREEISE 


ع رافعين مستوى صلاحيات المستخدم 


Friend Shared Sub RestartElevated() 
Dim startInfo As ProcessStartInfo = New ProcessStartInfo () 
startInfo.UseShellExecute = Tru 
startInfo.WorkingDirectory = Environment.CurrentDirectory 
startInfo.FileName = Application. ExecutablePath 
startInfo.Verb = "runas" 
TEY 
Dim p As Process = Process.Start (startInfo) 
Catch ex As System.ComponentModel.Win32Exception 
Return 'If cancelled, do nothing 
ERG TEY 
Application.Exit () 
ENG SU 


بقي لدينا إضافة أيقونة الدرع الخاصة بالأزرار التي تستخدم صلاحيات مدير إلى زر الأوامر المطلوب حيت يتم ذلك باستخدام الدالة 
Send Message‏ الموجودة في المكتبة اا.۲32ءء التي تقوم بإرسال الرسالة 0ا1ع٤۲5۳1٤M_S]٤8B‏ إلى الزر المطلوب كما في الإجراء 


Friend Shared Sub AddShieldToButton (ByVal b As Button) 
b.FlatStyle = FlatStyle.System 
SendMessage (b.Handle, BCM SETSHIELD, 0, &HFFFFFFF) 
Ea. Sab 
وسيصبح الكود الكامل للفئة التي سنستخدمها لإجراء عملية تمكين الزر من تنفيذ أعمال تتطلب صلاحيات مدير كما يلي‎ 
ImMpOFES System 
Imports System.Collections.Generic 
IMOGOE CES SYSEEM. TERE 
Imports System. Runtime. InteropServices 
Imports System.Diagnostics 
Imports System.Windows.Forms 
Imports System. Security. Principal 
Public Class VistaSecurity 


PEIVGES DECLATEES AQUEO FOREELOR SEeNnIAMESSaGEé. Ib USES ALL 
(ByVal HWND As IntPtr, ByVal MSG As Ulnteger, ByVal WParam As UInt32, 


ByVal LParam As UlInt32) As UlInt32 
PEIVaLê Const. BCM FIRST = GR1600 
PEIVatê: CORSE. BCM SETSHIELD: = (BCEM FIRST # GEC) 


As Boolean 


Friend Shared Function IsVistaOrHigher () 


Return Environment. OSVersion.Version.Major < 6 
EFûUNCEToOR 
<summary> 
Checks if the process is elevated 
</summary> 
<returns>If is elevated</returns> 


end Shared Function IsAdmin () As Boolean 


Dim id As WindowsIdentity = WindowsIdentity.GetCurrent () 
Dim p As WindowsPrincipal = New WindowsPrincipal (id) 
Return p.IsInRole (WindowsBuiltInRole.Administrator) 


EUNEELoD 


<Summary> 


ERG 


1 
ر 
ر 
7 


EEE 


End 


"7 Add. ã SRLeld 1ieon to ã Bion 


</summary> 
<param name="b">The button</param> 
end Shared Sub AddShieldToButton (ByVal b As Button) 
b.FlatStyle = FlatStyle.System 
SendMessage (b.Handle, BCM SETSHIELD, 0, &HFFFFFFF) 
ا‎ 


<summary> 


ر 
1 


EEL 


End 


7 


'/ Restart the current process with administrator credentials 


</summary> 
end Shared Sub RestartElevated () 


Dim startInfo As ProcessStartInfo = New ProcessStartInfo () 


startIinfo.UseShellExecute = Tru 


startInfo.WorkingDirectory = Environment.CurrentDirectory 


دعنا نجرب معا الفئة التي قمنا بإنشائها 


سأقوم بالتجربة على كود مقتطف من برنامج قديم لي وهو يراقب خدمة النظام الخاصة ب 


startInfo.FileName = Application. ExecutablePath 
startInfo.Verb = "runas" 

TEY 
Dim p As Process = Process.Start (startInfo) 
Catch ex As System.ComponentModel.Win32Exception 
Return 'If cancelled, do nothing 

ENA TEY 


Application.Exit () 
U9 
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للتو 


ر 


EEE 


End 
End CIa 


5Q Server‏ ویتحکم بھا وبما أن کود بدء أو 


إيقاف هذه الخدمة يعتبر من الأمور التي تحتاج إلى صلاحيات مدير لذا سأضع فقط قطعة الكود التي تفيدنا هنا حيث سنحتاج في البداية إلى 
إضافة مرجع إلى كوععه٣۴عءا۷مك.هtءرك‏ وإلى الاستيرادات التالية في بداية الملف أيضا 


وهذا هو الكود 


EXPRESS™) 


: SEO) 


System.ServiceProcess 
Microsoft.Win32 


SqlServiceCon As New _ 
System. ServiceProcess.ServiceController ("MSSQLŞ$SQL 


Sub StopSQL () 


SqlServiceCon. Refresh () 
If SqlServiceCon.CanStop = True Then SqlServiceCon 


ch ex As Exception 
MsgBox (ex.Message) 
TEY 


TMPDOEES 
IMEOE ES 


Private 


CE 


Hae) 
EA. Sab 


PEivatê Süb StaftSql () 
TEY 
SqlServiceCon. Refresh () 
If SqlServiceCon.Status <> ServiceControllerStatus.Running And _ 
SqlServiceCon.Status <> ServiceControllerStatus.StartPending Then 


SqlServiceCon.Start () 
End If 
Catch ex As Exception 
MsgBox (ex.Message) 
ERA TEY 
ER. SUB 


الآن سنستخدم فئتنا السابقة راء م5هtء۷‏ للتحقق أولا من أن برنامجنا يمتلك الصلاحيات المطلوبة باستخدام الدالة ١ص |١٧۸4‏ فإن لم يمتلك 
تلك الصلاحيات نعيد بدء العملية ووععهمم۴ الحالية رافعين الصلاحيات للمستوى المطلوب باستخدام الدالة ل عج۷ء ا٤٤۲‏ ه†ومR‏ كما في الكود 
If VistaSecurity.IsAdmin = True Then‏ 


StartSql () 
Else 


VistaSecurity.RestartElevated () 
ER ‘TÊ 


وعملية إضافة أيقونة الدرع إلى زر الأوامر تتم باستخدام الكود 
VistaSecurity.AddShieldToButton (Button1l)‏ 
وفيما يلي سرد كامل لكود النافذة ۴٠۲۳1‏ التي استخدمناها هنا وهي تمتلك زري أوامر tt0 ٣1‏ ں8 و But†0۸2‏ 


Imports System. ServiceProcess 
Imports Microsoft.Win32 


PUDILE Class Fornml 


Private SqlServiceCon As New 
System. ServiceProcess.ServiceController ("MSSQL$ŞSQLEXPRESS") 


Private Sub StopSQL () 
TEY 
SqlServiceCon. Refresh () 
If SqlServiceCon.CanStop = True Then SqlServiceCon. Stop () 


Catch ex As Exception 
MsgBox (ex.Message) 

End Try 

EAA SEG 


Private Sub StartsSql () 
TEY 
SqlServiceCon.Refresh () 
If SqlServiceCon.Status <> ServiceControllerSstatus.Running And _ 
SqlServiceCon.Status <> ServiceControllerStatus.StartPending Then 


SqlServiceCon.Start () 
ET TE 
Catch ex As Exception 
MsgBox (ex.Message) 
EAS TEY 
ERA SUS 


Privaté Sub Buttonl Click (ByVal sender As System:Object, ByVal e A6 
System.EventArgs) Handles Button1.Click 


سؤال 


If VistaSecurity.IsAdmin = True Then 
StartSql () 
Else 


VistaSecurity.RestartElevated () 
BENE TLE 
ERG SU 


PEAVStê: Sb. Buttonz CIICK(BYVAL Sender AS System: Object _ 
ByVal e As System.EventArgs) Handles Button2.Click 


If VistaSecurity.IsAdmin = True Then 
StopSQL () 
Else 


VistaSecurity.RestartElevated () 
ENG TE 
ERG SU 


PELVStES Sb Forml Toad(ByVal sender As Qj _ 
ByVal e As System.EventArgs) Handles Me.Load 


VistaSecurity.AddShieldToButton (Button1) 
VistaSecurity.AddShieldToButton (Button2) 
End Sub 


Class 


هل من الممكن شرح استخدام هذه الطريقة مع Windows XP‏ 


الجواب 


Windows XP ga lllaeتwl‎ jكnı‎ Ys Windows Vista هذه الطريقة خاصة حصرا ن‎ 


